home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / sources.exe / SOURCES / S / LOADCOMP.S < prev    next >
Encoding:
Text File  |  1993-10-24  |  1.8 KB  |  50 lines
  1. ; LOADCOMP.S
  2. ;************************************************************************
  3. ;*                                    *
  4. ;*        PC Scheme/Geneva 4.00 Scheme code            *
  5. ;*                                    *
  6. ;* (c) 1985-1988 by Texas Instruments, Inc. See COPYRIGHT.TXT        *
  7. ;* (c) 1992 by L. Bartholdi & M. Vuilleumier, University of Geneva    *
  8. ;*                                    *
  9. ;*----------------------------------------------------------------------*
  10. ;*                                    *
  11. ;*        Autoload definitions for COMPILER.APP            *
  12. ;*                                    *
  13. ;*----------------------------------------------------------------------*
  14. ;*                                    *
  15. ;* Created by: Terry Caudill        Date: 1985            *
  16. ;* Revision history:                            *
  17. ;* - 18 Jun 92:    Renaissance (Borland Compilers, ...)            *
  18. ;*                                    *
  19. ;*                    ``In nomine omnipotentii dei''    *
  20. ;************************************************************************
  21.  
  22. ;
  23. ; Set up the standard autoload files. LOADRUN.S also has autoload
  24. ; definitions for runtime version. Both LOADCOMP.S and LOADRUN.S
  25. ; should be included in COMPILER.APP.
  26.  
  27. (autoload-from-file (%system-file-name "SCOOPS.FSL")    ; SCOOPS
  28.     '(load-scoops)
  29.     user-global-environment)
  30.  
  31. (autoload-from-file (%system-file-name "INSPECT.FSL")   ; INSPECTOR
  32.     '(%inspect %inspector)
  33.     user-global-environment)
  34.  
  35. (autoload-from-file (%system-file-name "DEFSTRUC.FSL")   ; DEFINE-STRUCTURE
  36.     '(%define-structure %make-structure %structure-predicate)
  37.     user-global-environment)
  38.  
  39. (autoload-from-file (%system-file-name "EDIT.FSL")      ; STRUCTURE EDITOR
  40.        '(edit)
  41.        user-global-environment)
  42.  
  43. (autoload-from-file (%system-file-name "ADVISE.FSL")    ; PADVISE
  44.        '(advise-entry advise-exit break break-both break-entry break-exit
  45.      trace trace-both trace-entry trace-exit unadvise unadvise-entry
  46.      unadvise-exit unbreak unbreak-entry unbreak-exit untrace untrace-entry
  47.      untrace-exit *args* *proc* *result*)
  48.        user-global-environment)
  49.  
  50.